;; tmp teste les diférences de comprtement des fonctions (prin...
(defun c:tmp (/ d txt)

  (setq	d  15.2					  ; affectation de 2 variables pour un réel et un texte
	tx "halala !"
  )

  (princ "\nEffet avec princ : ") ; (princ traite les caractères d'échappements  
  (princ (strcat "\nUn réel = " (rtos d)))
  (princ (strcat "\nUn texte  : " tx))
  (princ "\n")

  (prin1 "\neffet avec prin1 : ") ; (prin1 ne traite pas les caractères d'échappements  
  (prin1 (strcat "\nUn réel = " (rtos d)))
  (prin1 (strcat "\nUn texte  : " tx))
  (princ "\n")

  (print "\neffet avec print : "); (print ne traite pas les caractères d'échappements mais ajoute un saut de ligne 
  (print (strcat "\nUn réel = " (rtos d)))
  (print (strcat "\nUn texte  : " tx))
  (princ "\n")


  (princ)

)						  ;fin tmp